Gt; while abs(f(x))>eps and abs(x-x0)>eps do
h:=x-x0; x0:=x;
x:=x0-h*f(x0)/(f(x0)-f(x0-h));
n:=n+1;
> od:
> evalf(x);n;
Если известны числа a и b, такие, что f (a) f (b)<0, т.е. заранее известно, что на отрезке [ a, b ] существует корень уравнения, то целесообразно использовать алгоритм
1. Найти .
2. Вычислить .
3. Если , то , иначе
4. Проверить условие , если оно выполняется, перейти к пункту 1, если оно не выполняется, закончить вычисления, считая корнем x с точностью e.
> restart;
> f:=t->exp(-t)-sin(t);
> eps:=0.001: a:=0: b:=2.: n:=0: x:=(a+b)/2:
Дата добавления: 2015-12-16; просмотров: 16; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!